home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / ld / mpw-eppcmac.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-04  |  28.9 KB  |  1,225 lines
  1. /* This file is is generated by a shell script.  DO NOT EDIT! */
  2.  
  3. /* AIX emulation code for ppcmacos
  4.    Copyright (C) 1991, 1993, 1995 Free Software Foundation, Inc.
  5.    Written by Steve Chamberlain <sac@cygnus.com>
  6.    AIX support by Ian Lance Taylor <ian@cygnus.com>
  7.  
  8. This file is part of GLD, the Gnu Linker.
  9.  
  10. This program is free software; you can redistribute it and/or modify
  11. it under the terms of the GNU General Public License as published by
  12. the Free Software Foundation; either version 2 of the License, or
  13. (at your option) any later version.
  14.  
  15. This program is distributed in the hope that it will be useful,
  16. but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. GNU General Public License for more details.
  19.  
  20. You should have received a copy of the GNU General Public License
  21. along with this program; if not, write to the Free Software
  22. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  23.  
  24. #define TARGET_IS_ppcmacos
  25.  
  26. #include "bfd.h"
  27. #include "sysdep.h"
  28. #include "libiberty.h"
  29. #include "getopt.h"
  30. #include "bfdlink.h"
  31.  
  32. #include <ctype.h>
  33.  
  34. #include "ld.h"
  35. #include "ldmain.h"
  36. #include "ldemul.h"
  37. #include "ldfile.h"
  38. #include "ldmisc.h"
  39. #include "ldexp.h"
  40. #include "ldlang.h"
  41. #include "ldctor.h"
  42. #include "ldgram.h"
  43.  
  44. static void gldppcmacos_before_parse PARAMS ((void));
  45. static int gldppcmacos_parse_args PARAMS ((int, char **));
  46. static void gldppcmacos_after_open PARAMS ((void));
  47. static void gldppcmacos_before_allocation PARAMS ((void));
  48. static void gldppcmacos_read_file PARAMS ((const char *, boolean));
  49. static void gldppcmacos_free PARAMS ((PTR));
  50. static void gldppcmacos_find_relocs
  51.   PARAMS ((lang_statement_union_type *));
  52. static void gldppcmacos_find_exp_assignment PARAMS ((etree_type *));
  53. static char *gldppcmacos_get_script PARAMS ((int *isfile));
  54.  
  55. /* The file alignment required for each section.  */
  56. static unsigned long file_align;
  57.  
  58. /* The maximum size the stack is permitted to grow.  This is stored in
  59.    the a.out header.  */
  60. static unsigned long maxstack;
  61.  
  62. /* The maximum data size.  This is stored in the a.out header.  */
  63. static unsigned long maxdata;
  64.  
  65. /* Whether to perform garbage collection.  */
  66. static int gc = 1;
  67.  
  68. /* The module type to use.  */
  69. static unsigned short modtype = ('1' << 8) | 'L';
  70.  
  71. /* Whether the .text section must be read-only (i.e., no relocs
  72.    permitted).  */
  73. static int textro;
  74.  
  75. /* Whether to implement Unix like linker semantics.  */
  76. static int unix_ld;
  77.  
  78. /* Structure used to hold import file list.  */
  79.  
  80. struct filelist
  81. {
  82.   struct filelist *next;
  83.   const char *name;
  84. };
  85.  
  86. /* List of import files.  */
  87. static struct filelist *import_files;
  88.  
  89. /* List of export symbols read from the export files.  */
  90.  
  91. struct export_symbol_list
  92. {
  93.   struct export_symbol_list *next;
  94.   const char *name;
  95.   boolean syscall;
  96. };
  97.  
  98. static struct export_symbol_list *export_symbols;
  99.  
  100. /* This routine is called before anything else is done.  */
  101.  
  102. static void
  103. gldppcmacos_before_parse()
  104. {
  105. #ifndef TARGET_            /* I.e., if not generic.  */
  106.   ldfile_output_architecture = bfd_arch_powerpc;
  107. #endif /* not TARGET_ */
  108. }
  109.  
  110. /* Handle AIX specific options.  */
  111.  
  112. static int
  113. gldppcmacos_parse_args (argc, argv)
  114.      int argc;
  115.      char **argv;
  116. {
  117.   int prevoptind = optind;
  118.   int prevopterr = opterr;
  119.   int indx;
  120.   int longind;
  121.   int optc;
  122.   long val;
  123.   char *end;
  124.  
  125. #define OPTION_IGNORE (300)
  126. #define OPTION_AUTOIMP (OPTION_IGNORE + 1)
  127. #define OPTION_ERNOTOK (OPTION_AUTOIMP + 1)
  128. #define OPTION_EROK (OPTION_ERNOTOK + 1)
  129. #define OPTION_EXPORT (OPTION_EROK + 1)
  130. #define OPTION_IMPORT (OPTION_EXPORT + 1)
  131. #define OPTION_LOADMAP (OPTION_IMPORT + 1)
  132. #define OPTION_MAXDATA (OPTION_LOADMAP + 1)
  133. #define OPTION_MAXSTACK (OPTION_MAXDATA + 1)
  134. #define OPTION_MODTYPE (OPTION_MAXSTACK + 1)
  135. #define OPTION_NOAUTOIMP (OPTION_MODTYPE + 1)
  136. #define OPTION_NOSTRCMPCT (OPTION_NOAUTOIMP + 1)
  137. #define OPTION_PD (OPTION_NOSTRCMPCT + 1)
  138. #define OPTION_PT (OPTION_PD + 1)
  139. #define OPTION_STRCMPCT (OPTION_PT + 1)
  140. #define OPTION_UNIX (OPTION_STRCMPCT + 1)
  141.  
  142.   static struct option longopts[] = {
  143.     {"basis", no_argument, NULL, OPTION_IGNORE},
  144.     {"bautoimp", no_argument, NULL, OPTION_AUTOIMP},
  145.     {"bcomprld", no_argument, NULL, OPTION_IGNORE},
  146.     {"bcrld", no_argument, NULL, OPTION_IGNORE},
  147.     {"bcror31", no_argument, NULL, OPTION_IGNORE},
  148.     {"bD", required_argument, NULL, OPTION_MAXDATA},
  149.     {"bE", required_argument, NULL, OPTION_EXPORT},
  150.     {"bernotok", no_argument, NULL, OPTION_ERNOTOK},
  151.     {"berok", no_argument, NULL, OPTION_EROK},
  152.     {"berrmsg", no_argument, NULL, OPTION_IGNORE},
  153.     {"bexport", required_argument, NULL, OPTION_EXPORT},
  154.     {"bf", no_argument, NULL, OPTION_ERNOTOK},
  155.     {"bgc", no_argument, &gc, 1},
  156.     {"bh", required_argument, NULL, OPTION_IGNORE},
  157.     {"bhalt", required_argument, NULL, OPTION_IGNORE},
  158.     {"bI", required_argument, NULL, OPTION_IMPORT},
  159.     {"bimport", required_argument, NULL, OPTION_IMPORT},
  160.     {"bl", required_argument, NULL, OPTION_LOADMAP},
  161.     {"bloadmap", required_argument, NULL, OPTION_LOADMAP},
  162.     {"bmaxdata", required_argument, NULL, OPTION_MAXDATA},
  163.     {"bmaxstack", required_argument, NULL, OPTION_MAXSTACK},
  164.     {"bM", required_argument, NULL, OPTION_MODTYPE},
  165.     {"bmodtype", required_argument, NULL, OPTION_MODTYPE},
  166.     {"bnoautoimp", no_argument, NULL, OPTION_NOAUTOIMP},
  167.     {"bnodelcsect", no_argument, NULL, OPTION_IGNORE},
  168.     {"bnoentry", no_argument, NULL, OPTION_IGNORE},
  169.     {"bnogc", no_argument, &gc, 0},
  170.     {"bnso", no_argument, NULL, OPTION_NOAUTOIMP},
  171.     {"bnostrcmpct", no_argument, NULL, OPTION_NOSTRCMPCT},
  172.     {"bnotextro", no_argument, &textro, 0},
  173.     {"bnro", no_argument, &textro, 0},
  174.     {"bpD", required_argument, NULL, OPTION_PD},
  175.     {"bpT", required_argument, NULL, OPTION_PT},
  176.     {"bro", no_argument, &textro, 1},
  177.     {"bS", required_argument, NULL, OPTION_MAXSTACK},
  178.     {"bso", no_argument, NULL, OPTION_AUTOIMP},
  179.     {"bstrcmpct", no_argument, NULL, OPTION_STRCMPCT},
  180.     {"btextro", no_argument, &textro, 1},
  181.     {"static", no_argument, NULL, OPTION_NOAUTOIMP},
  182.     {"unix", no_argument, NULL, OPTION_UNIX},
  183.     {NULL, no_argument, NULL, 0}
  184.   };
  185.  
  186.   /* Options supported by the AIX linker which we do not support: -f,
  187.      -S, -v, -Z, -bbindcmds, -bbinder, -bbindopts, -bcalls, -bcaps,
  188.      -bcror15, -bdebugopt, -bdbg, -bdelcsect, -bex?, -bfilelist, -bfl,
  189.      -bgcbypass, -bglink, -binsert, -bi, -bloadmap, -bl, -bmap, -bnl,
  190.      -bnobind, -bnocomprld, -bnocrld, -bnoerrmsg, -bnoglink,
  191.      -bnoloadmap, -bnl, -bnoobjreorder, -bnoquiet, -bnoreorder,
  192.      -bnotypchk, -bnox, -bquiet, -bR, -brename, -breorder, -btypchk,
  193.      -bx, -bX, -bxref.  */
  194.  
  195.   /* If the current option starts with -b, change the first : to an =.
  196.      The AIX linker uses : to separate the option from the argument;
  197.      changing it to = lets us treat it as a getopt option.  */
  198.   indx = optind;
  199.   if (indx == 0)
  200.     indx = 1;
  201.   if (indx < argc && strncmp (argv[indx], "-b", 2) == 0)
  202.     {
  203.       char *s;
  204.  
  205.       for (s = argv[indx]; *s != '\0'; s++)
  206.     {
  207.       if (*s == ':')
  208.         {
  209.           *s = '=';
  210.           break;
  211.         }
  212.     }
  213.     }
  214.  
  215.   opterr = 0;
  216.   optc = getopt_long_only (argc, argv, "-D:H:KT:z", longopts, &longind);
  217.   opterr = prevopterr;
  218.  
  219.   switch (optc)
  220.     {
  221.     default:
  222.       optind = prevoptind;
  223.       return 0;
  224.  
  225.     case 0:
  226.       /* Long option which just sets a flag.  */
  227.       break;
  228.  
  229.     case 'D':
  230.       val = strtol (optarg, &end, 0);
  231.       if (*end != '\0')
  232.     einfo ("%P: warning: ignoring invalid -D number %s\n", optarg);
  233.       else if (val != -1)
  234.     lang_section_start (".data", exp_intop (val));
  235.       break;
  236.  
  237.     case 'H':
  238.       val = strtoul (optarg, &end, 0);
  239.       if (*end != '\0'
  240.       || (val & (val - 1)) != 0)
  241.     einfo ("%P: warning: ignoring invalid -H number %s\n", optarg);
  242.       else
  243.     file_align = val;
  244.       break;
  245.  
  246.     case 'K':
  247.     case 'z':
  248.       /* FIXME: This should use the page size for the target system.  */
  249.       file_align = 4096;
  250.       break;
  251.  
  252.     case 'T':
  253.       /* On AIX this is the same as GNU ld -Ttext.  When we see -T
  254.          number, we assume the AIX option is intended.  Otherwise, we
  255.          assume the usual GNU ld -T option is intended.  We can't just
  256.          ignore the AIX option, because gcc passes it to the linker.  */
  257.       val = strtoul (optarg, &end, 0);
  258.       if (*end != '\0')
  259.     {
  260.       optind = prevoptind;
  261.       return 0;
  262.     }
  263.       lang_section_start (".text", exp_intop (val));
  264.       break;
  265.  
  266.     case OPTION_IGNORE:
  267.       break;
  268.  
  269.     case OPTION_AUTOIMP:
  270.       link_info.static_link = false;
  271.       break;
  272.  
  273.     case OPTION_ERNOTOK:
  274.       force_make_executable = false;
  275.       break;
  276.  
  277.     case OPTION_EROK:
  278.       force_make_executable = true;
  279.       break;
  280.  
  281.     case OPTION_EXPORT:
  282.       gldppcmacos_read_file (optarg, false);
  283.       break;
  284.  
  285.     case OPTION_IMPORT:
  286.       {
  287.     struct filelist *n;
  288.     struct filelist **flpp;
  289.  
  290.     n = (struct filelist *) xmalloc (sizeof (struct filelist));
  291.     n->next = NULL;
  292.     n->name = optarg;
  293.     flpp = &import_files;
  294.     while (*flpp != NULL)
  295.       flpp = &(*flpp)->next;
  296.     *flpp = n;
  297.       }
  298.       break;
  299.  
  300.     case OPTION_LOADMAP:
  301.       config.map_filename = optarg;
  302.       break;
  303.  
  304.     case OPTION_MAXDATA:
  305.       val = strtoul (optarg, &end, 0);
  306.       if (*end != '\0')
  307.     einfo ("%P: warning: ignoring invalid -bmaxdata number %s\n",
  308.            optarg);
  309.       else
  310.     maxdata = val;
  311.       break;
  312.  
  313.     case OPTION_MAXSTACK:
  314.       val = strtoul (optarg, &end, 0);
  315.       if (*end != '\0')
  316.     einfo ("%P: warning: ignoring invalid -bmaxstack number %s\n",
  317.            optarg);
  318.       else
  319.     maxstack = val;
  320.       break;
  321.  
  322.     case OPTION_MODTYPE:
  323.       if (*optarg == 'S')
  324.     {
  325.       link_info.shared = true;
  326.       ++optarg;
  327.     }
  328.       if (*optarg == '\0' || optarg[1] == '\0')
  329.     einfo ("%P: warning: ignoring invalid module type %s\n", optarg);
  330.       else
  331.     modtype = (*optarg << 8) | optarg[1];
  332.       break;
  333.  
  334.     case OPTION_NOAUTOIMP:
  335.       link_info.static_link = true;
  336.       break;
  337.  
  338.     case OPTION_NOSTRCMPCT:
  339.       link_info.traditional_format = true;
  340.       break;
  341.  
  342.     case OPTION_PD:
  343.       /* This sets the page that the .data section is supposed to
  344.          start on.  The offset within the page should still be the
  345.          offset within the file, so we need to build an appropriate
  346.          expression.  */
  347.       val = strtoul (optarg, &end, 0);
  348.       if (*end != '\0')
  349.     einfo ("%P: warning: ignoring invalid -pD number %s\n", optarg);
  350.       else
  351.     {
  352.       etree_type *t;
  353.  
  354.       t = exp_binop ('+',
  355.              exp_intop (val),
  356.              exp_binop ('&',
  357.                     exp_nameop (NAME, "."),
  358.                     exp_intop (0xfff)));
  359.       t = exp_binop ('&',
  360.              exp_binop ('+', t, exp_intop (7)),
  361.              exp_intop (~ (bfd_vma) 7));
  362.       lang_section_start (".data", t);
  363.     }
  364.       break;
  365.  
  366.     case OPTION_PT:
  367.       /* This set the page that the .text section is supposed to start
  368.          on.  The offset within the page should still be the offset
  369.          within the file.  */
  370.       val = strtoul (optarg, &end, 0);
  371.       if (*end != '\0')
  372.     einfo ("%P: warning: ignoring invalid -pT number %s\n", optarg);
  373.       else
  374.     {
  375.       etree_type *t;
  376.  
  377.       t = exp_binop ('+',
  378.              exp_intop (val),
  379.              exp_nameop (SIZEOF_HEADERS, NULL));
  380.       t = exp_binop ('&',
  381.              exp_binop ('+', t, exp_intop (7)),
  382.              exp_intop (~ (bfd_vma) 7));
  383.       lang_section_start (".text", t);
  384.     }
  385.       break;
  386.  
  387.     case OPTION_STRCMPCT:
  388.       link_info.traditional_format = false;
  389.       break;
  390.  
  391.     case OPTION_UNIX:
  392.       unix_ld = true;
  393.       break;
  394.     }
  395.  
  396.   return 1;
  397. }
  398.  
  399. /* This is called when an input file can not be recognized as a BFD
  400.    object or an archive.  If the file starts with #!, we must treat it
  401.    as an import file.  This is for AIX compatibility.  */
  402.  
  403. static boolean
  404. gldppcmacos_unrecognized_file (entry)
  405.      lang_input_statement_type *entry;
  406. {
  407.   FILE *e;
  408.   boolean ret;
  409.  
  410.   e = fopen (entry->filename, FOPEN_RT);
  411.   if (e == NULL)
  412.     return false;
  413.  
  414.   ret = false;
  415.  
  416.   if (getc (e) == '#' && getc (e) == '!')
  417.     {
  418.       struct filelist *n;
  419.       struct filelist **flpp;
  420.  
  421.       n = (struct filelist *) xmalloc (sizeof (struct filelist));
  422.       n->next = NULL;
  423.       n->name = entry->filename;
  424.       flpp = &import_files;
  425.       while (*flpp != NULL)
  426.     flpp = &(*flpp)->next;
  427.       *flpp = n;
  428.  
  429.       ret = true;
  430.       entry->loaded = true;
  431.     }
  432.  
  433.   fclose (e);
  434.  
  435.   return ret;
  436. }
  437.  
  438. /* This is called after the input files have been opened.  */
  439.  
  440. static void
  441. gldppcmacos_after_open ()
  442. {
  443.   boolean r;
  444.   struct set_info *p;
  445.  
  446.   /* Call ldctor_build_sets, after pretending that this is a
  447.      relocateable link.  We do this because AIX requires relocation
  448.      entries for all references to symbols, even in a final
  449.      executable.  Of course, we only want to do this if we are
  450.      producing an XCOFF output file.  */
  451.   r = link_info.relocateable;
  452.   if (strstr (bfd_get_target (output_bfd), "xcoff") != NULL)
  453.     link_info.relocateable = true;
  454.   ldctor_build_sets ();
  455.   link_info.relocateable = r;
  456.  
  457.   /* For each set, record the size, so that the XCOFF backend can
  458.      output the correct csect length.  */
  459.   for (p = sets; p != (struct set_info *) NULL; p = p->next)
  460.     {
  461.       bfd_size_type size;
  462.  
  463.       /* If the symbol is defined, we may have been invoked from
  464.      collect, and the sets may already have been built, so we do
  465.      not do anything.  */
  466.       if (p->h->type == bfd_link_hash_defined
  467.       || p->h->type == bfd_link_hash_defweak)
  468.     continue;
  469.  
  470.       if (p->reloc != BFD_RELOC_CTOR)
  471.     {
  472.       /* Handle this if we need to.  */
  473.       abort ();
  474.     }
  475.  
  476.       size = (p->count + 2) * 4;
  477.       if (! bfd_xcoff_link_record_set (output_bfd, &link_info, p->h, size))
  478.     einfo ("%F%P: bfd_xcoff_link_record_set failed: %E\n");
  479.     }
  480. }
  481.  
  482. /* This is called after the sections have been attached to output
  483.    sections, but before any sizes or addresses have been set.  */
  484.  
  485. static void
  486. gldppcmacos_before_allocation ()
  487. {
  488.   struct filelist *fl;
  489.   struct export_symbol_list *el;
  490.   char *libpath;
  491.   asection *special_sections[6];
  492.   int i;
  493.  
  494.   /* Handle the import and export files, if any.  */
  495.   for (fl = import_files; fl != NULL; fl = fl->next)
  496.     gldppcmacos_read_file (fl->name, true);
  497.   for (el = export_symbols; el != NULL; el = el->next)
  498.     {
  499.       struct bfd_link_hash_entry *h;
  500.  
  501.       h = bfd_link_hash_lookup (link_info.hash, el->name, false, false, false);
  502.       if (h == NULL)
  503.     einfo ("%P%F: bfd_link_hash_lookup of export symbol failed: %E\n");
  504.       if (! bfd_xcoff_export_symbol (output_bfd, &link_info, h, el->syscall))
  505.     einfo ("%P%F: bfd_xcoff_export_symbol failed: %E\n");
  506.     }
  507.  
  508.   /* Track down all relocations called for by the linker script (these
  509.      are typically constructor/destructor entries created by
  510.      CONSTRUCTORS) and let the backend know it will need to create
  511.      .loader relocs for them.  */
  512.   lang_for_each_statement (gldppcmacos_find_relocs);
  513.  
  514.   /* We need to build LIBPATH from the -L arguments.  If any -rpath
  515.      arguments were used, though, we use -rpath instead, as a GNU
  516.      extension.  */
  517.   if (command_line.rpath != NULL)
  518.     libpath = command_line.rpath;
  519.   else if (search_head == NULL)
  520.     libpath = (char *) "";
  521.   else
  522.     {
  523.       size_t len;
  524.       search_dirs_type *search;
  525.  
  526.       len = strlen (search_head->name);
  527.       libpath = xmalloc (len + 1);
  528.       strcpy (libpath, search_head->name);
  529.       for (search = search_head->next; search != NULL; search = search->next)
  530.     {
  531.       size_t nlen;
  532.  
  533.       nlen = strlen (search->name);
  534.       libpath = xrealloc (libpath, len + nlen + 2);
  535.       libpath[len] = ':';
  536.       strcpy (libpath + len + 1, search->name);
  537.       len += nlen + 1;
  538.     }
  539.     }
  540.  
  541.   /* Let the XCOFF backend set up the .loader section.  */
  542.   if (! bfd_xcoff_size_dynamic_sections (output_bfd, &link_info, libpath,
  543.                      entry_symbol, file_align,
  544.                      maxstack, maxdata,
  545.                      gc && ! unix_ld ? true : false,
  546.                      modtype,
  547.                      textro ? true : false,
  548.                      unix_ld,
  549.                      special_sections))
  550.     einfo ("%P%F: failed to set dynamic section sizes: %E\n");
  551.  
  552.   /* Look through the special sections, and put them in the right
  553.      place in the link ordering.  This is especially magic.  */
  554.   for (i = 0; i < 6; i++)
  555.     {
  556.       asection *sec;
  557.       lang_output_section_statement_type *os;
  558.       lang_statement_union_type **pls;
  559.       lang_input_section_type *is;
  560.       const char *oname;
  561.       boolean start;
  562.  
  563.       sec = special_sections[i];
  564.       if (sec == NULL)
  565.     continue;
  566.  
  567.       /* Remove this section from the list of the output section.
  568.          This assumes we know what the script looks like.  */
  569.       is = NULL;
  570.       os = lang_output_section_find (sec->output_section->name);
  571.       if (os == NULL)
  572.     einfo ("%P%F: can't find output section %s\n",
  573.            sec->output_section->name);
  574.       for (pls = &os->children.head; *pls != NULL; pls = &(*pls)->next)
  575.     {
  576.       if ((*pls)->header.type == lang_input_section_enum
  577.           && (*pls)->input_section.section == sec)
  578.         {
  579.           is = (lang_input_section_type *) *pls;
  580.           *pls = (*pls)->next;
  581.           break;
  582.         }
  583.       if ((*pls)->header.type == lang_wild_statement_enum)
  584.         {
  585.           lang_statement_union_type **pwls;
  586.  
  587.           for (pwls = &(*pls)->wild_statement.children.head;
  588.            *pwls != NULL;
  589.            pwls = &(*pwls)->next)
  590.         {
  591.           if ((*pwls)->header.type == lang_input_section_enum
  592.               && (*pwls)->input_section.section == sec)
  593.             {
  594.               is = (lang_input_section_type *) *pwls;
  595.               *pwls = (*pwls)->next;
  596.               break;
  597.             }
  598.         }
  599.           if (is != NULL)
  600.         break;
  601.         }
  602.     }    
  603.  
  604.       if (is == NULL)
  605.     einfo ("%P%F: can't find %s in output section\n",
  606.            bfd_get_section_name (sec->owner, sec));
  607.  
  608.       /* Now figure out where the section should go.  */
  609.       switch (i)
  610.     {
  611.     default: /* to avoid warnings */
  612.     case 0:
  613.       /* _text */
  614.       oname = ".text";
  615.       start = true;
  616.       break;
  617.     case 1:
  618.       /* _etext */
  619.       oname = ".text";
  620.       start = false;
  621.       break;
  622.     case 2:
  623.       /* _data */
  624.       oname = ".data";
  625.       start = true;
  626.       break;
  627.     case 3:
  628.       /* _edata */
  629.       oname = ".data";
  630.       start = false;
  631.       break;
  632.     case 4:
  633.     case 5:
  634.       /* _end and end */
  635.       oname = ".bss";
  636.       start = false;
  637.       break;
  638.     }
  639.  
  640.       os = lang_output_section_find (oname);
  641.  
  642.       if (start)
  643.     {
  644.       is->header.next = os->children.head;
  645.       os->children.head = (lang_statement_union_type *) is;
  646.     }
  647.       else
  648.     {
  649.       is->header.next = NULL;
  650.       lang_statement_append (&os->children,
  651.                  (lang_statement_union_type *) is,
  652.                  &is->header.next);
  653.     }
  654.     }
  655. }
  656.  
  657. /* Read an import or export file.  For an import file, this is called
  658.    by the before_allocation emulation routine.  For an export file,
  659.    this is called by the parse_args emulation routine.  */
  660.  
  661. static void
  662. gldppcmacos_read_file (filename, import)
  663.      const char *filename;
  664.      boolean import;
  665. {
  666.   struct obstack *o;
  667.   FILE *f;
  668.   int lineno;
  669.   int c;
  670.   boolean keep;
  671.   const char *imppath;
  672.   const char *impfile;
  673.   const char *impmember;
  674.  
  675.   o = (struct obstack *) xmalloc (sizeof (struct obstack));
  676.   obstack_specify_allocation (o, 0, 0, xmalloc, gldppcmacos_free);
  677.  
  678.   f = fopen (filename, FOPEN_RT);
  679.   if (f == NULL)
  680.     {
  681.       bfd_set_error (bfd_error_system_call);
  682.       einfo ("%F%s: %E\n", filename);
  683.     }
  684.  
  685.   keep = false;
  686.  
  687.   imppath = NULL;
  688.   impfile = NULL;
  689.   impmember = NULL;
  690.  
  691.   lineno = 0;
  692.   while ((c = getc (f)) != EOF)
  693.     {
  694.       char *s;
  695.       char *symname;
  696.       boolean syscall;
  697.       bfd_vma address;
  698.       struct bfd_link_hash_entry *h;
  699.  
  700.       if (c != '\n')
  701.     {
  702.       obstack_1grow (o, c);
  703.       continue;
  704.     }
  705.  
  706.       obstack_1grow (o, '\0');
  707.       ++lineno;
  708.  
  709.       s = (char *) obstack_base (o);
  710.       while (isspace ((unsigned char) *s))
  711.     ++s;
  712.       if (*s == '\0'
  713.       || *s == '*'
  714.       || (*s == '#' && s[1] == ' ')
  715.       || (! import && *s == '#' && s[1] == '!'))
  716.     {
  717.       obstack_free (o, obstack_base (o));
  718.       continue;
  719.     }
  720.  
  721.       if (*s == '#' && s[1] == '!')
  722.     {
  723.       s += 2;
  724.       while (isspace ((unsigned char) *s))
  725.         ++s;
  726.       if (*s == '\0')
  727.         {
  728.           imppath = NULL;
  729.           impfile = NULL;
  730.           impmember = NULL;
  731.           obstack_free (o, obstack_base (o));
  732.         }
  733.       else if (*s == '(')
  734.         einfo ("%F%s%d: #! ([member]) is not supported in import files",
  735.            filename, lineno);
  736.       else
  737.         {
  738.           char cs;
  739.           char *file;
  740.  
  741.           (void) obstack_finish (o);
  742.           keep = true;
  743.           imppath = s;
  744.           file = NULL;
  745.           while (! isspace ((unsigned char) *s) && *s != '(' && *s != '\0')
  746.         {
  747.           if (*s == '/')
  748.             file = s + 1;
  749.           ++s;
  750.         }
  751.           if (file != NULL)
  752.         {
  753.           file[-1] = '\0';
  754.           impfile = file;
  755.           if (imppath == file - 1)
  756.             imppath = "/";
  757.         }
  758.           else
  759.         {
  760.           impfile = imppath;
  761.           imppath = "";
  762.         }
  763.           cs = *s;
  764.           *s = '\0';
  765.           while (isspace ((unsigned char) cs))
  766.         {
  767.           ++s;
  768.           cs = *s;
  769.         }
  770.           if (cs != '(')
  771.         {
  772.           impmember = "";
  773.           if (cs != '\0')
  774.             einfo ("%s:%d: warning: syntax error in import file\n",
  775.                filename, lineno);
  776.         }
  777.           else
  778.         {
  779.           ++s;
  780.           impmember = s;
  781.           while (*s != ')' && *s != '\0')
  782.             ++s;
  783.           if (*s == ')')
  784.             *s = '\0';
  785.           else
  786.             einfo ("%s:%d: warning: syntax error in import file\n",
  787.                filename, lineno);
  788.         }
  789.         }
  790.  
  791.       continue;
  792.     }
  793.  
  794.       /* This is a symbol to be imported or exported.  */
  795.       symname = s;
  796.       syscall = false;
  797.       address = (bfd_vma) -1;
  798.  
  799.       while (! isspace ((unsigned char) *s) && *s != '\0')
  800.     ++s;
  801.       if (*s != '\0')
  802.     {
  803.       char *se;
  804.  
  805.       *s++ = '\0';
  806.  
  807.       while (isspace ((unsigned char) *s))
  808.         ++s;
  809.  
  810.       se = s;
  811.       while (! isspace ((unsigned char) *se) && *se != '\0')
  812.         ++se;
  813.       if (*se != '\0')
  814.         {
  815.           *se++ = '\0';
  816.           while (isspace ((unsigned char) *se))
  817.         ++se;
  818.           if (*se != '\0')
  819.         einfo ("%s%d: warning: syntax error in import/export file\n",
  820.                filename, lineno);
  821.         }
  822.  
  823.       if (strcasecmp (s, "svc") == 0
  824.           || strcasecmp (s, "syscall") == 0)
  825.         syscall = true;
  826.       else
  827.         {
  828.           char *end;
  829.  
  830.           address = strtoul (s, &end, 0);
  831.           if (*end != '\0')
  832.         einfo ("%s:%d: warning: syntax error in import/export file\n",
  833.                filename, lineno);
  834.         }
  835.     }
  836.  
  837.       if (! import)
  838.     {
  839.       struct export_symbol_list *n;
  840.  
  841.       ldlang_add_undef (symname);
  842.       n = ((struct export_symbol_list *)
  843.            xmalloc (sizeof (struct export_symbol_list)));
  844.       n->next = export_symbols;
  845.       n->name = buystring (symname);
  846.       n->syscall = syscall;
  847.       export_symbols = n;
  848.     }
  849.       else
  850.     {
  851.       h = bfd_link_hash_lookup (link_info.hash, symname, false, false,
  852.                     true);
  853.       if (h == NULL || h->type == bfd_link_hash_new)
  854.         {
  855.           /* We can just ignore attempts to import an unreferenced
  856.          symbol.  */
  857.         }
  858.       else
  859.         {
  860.           if (! bfd_xcoff_import_symbol (output_bfd, &link_info, h,
  861.                          address, imppath, impfile,
  862.                          impmember))
  863.         einfo ("%X%s:%d: failed to import symbol %s: %E\n",
  864.                filename, lineno, symname);
  865.         }
  866.     }
  867.  
  868.       obstack_free (o, obstack_base (o));
  869.     }
  870.  
  871.   if (obstack_object_size (o) > 0)
  872.     {
  873.       einfo ("%s:%d: warning: ignoring unterminated last line\n",
  874.          filename, lineno);
  875.       obstack_free (o, obstack_base (o));
  876.     }
  877.  
  878.   if (! keep)
  879.     {
  880.       obstack_free (o, NULL);
  881.       free (o);
  882.     }
  883. }
  884.  
  885. /* This routine saves us from worrying about declaring free.  */
  886.  
  887. static void
  888. gldppcmacos_free (p)
  889.      PTR p;
  890. {
  891.   free (p);
  892. }
  893.  
  894. /* This is called by the before_allocation routine via
  895.    lang_for_each_statement.  It looks for relocations and assignments
  896.    to symbols.  */
  897.  
  898. static void
  899. gldppcmacos_find_relocs (s)
  900.      lang_statement_union_type *s;
  901. {
  902.   if (s->header.type == lang_reloc_statement_enum)
  903.     {
  904.       lang_reloc_statement_type *rs;
  905.  
  906.       rs = &s->reloc_statement;
  907.       if (rs->name == NULL)
  908.     einfo ("%F%P: only relocations against symbols are permitted\n");
  909.       if (! bfd_xcoff_link_count_reloc (output_bfd, &link_info, rs->name))
  910.     einfo ("%F%P: bfd_xcoff_link_count_reloc failed: %E\n");
  911.     }
  912.  
  913.   if (s->header.type == lang_assignment_statement_enum)
  914.     gldppcmacos_find_exp_assignment (s->assignment_statement.exp);
  915. }
  916.  
  917. /* Look through an expression for an assignment statement.  */
  918.  
  919. static void
  920. gldppcmacos_find_exp_assignment (exp)
  921.      etree_type *exp;
  922. {
  923.   struct bfd_link_hash_entry *h;
  924.  
  925.   switch (exp->type.node_class)
  926.     {
  927.     case etree_provide:
  928.       h = bfd_link_hash_lookup (link_info.hash, exp->assign.dst,
  929.                 false, false, false);
  930.       if (h == NULL)
  931.     break;
  932.       /* Fall through.  */
  933.     case etree_assign:
  934.       if (strcmp (exp->assign.dst, ".") != 0)
  935.     {
  936.       if (! bfd_xcoff_record_link_assignment (output_bfd, &link_info,
  937.                           exp->assign.dst))
  938.         einfo ("%P%F: failed to record assignment to %s: %E\n",
  939.            exp->assign.dst);
  940.     }
  941.       gldppcmacos_find_exp_assignment (exp->assign.src);
  942.       break;
  943.  
  944.     case etree_binary:
  945.       gldppcmacos_find_exp_assignment (exp->binary.lhs);
  946.       gldppcmacos_find_exp_assignment (exp->binary.rhs);
  947.       break;
  948.  
  949.     case etree_trinary:
  950.       gldppcmacos_find_exp_assignment (exp->trinary.cond);
  951.       gldppcmacos_find_exp_assignment (exp->trinary.lhs);
  952.       gldppcmacos_find_exp_assignment (exp->trinary.rhs);
  953.       break;
  954.  
  955.     case etree_unary:
  956.       gldppcmacos_find_exp_assignment (exp->unary.child);
  957.       break;
  958.  
  959.     default:
  960.       break;
  961.     }
  962. }
  963.  
  964. static char *
  965. gldppcmacos_get_script(isfile)
  966.      int *isfile;
  967. {                 
  968.   *isfile = 0;
  969.  
  970.   if (link_info.relocateable == true && config.build_constructors == true)
  971.     return
  972. "OUTPUT_FORMAT(\"xcoff-powermac\")\n\
  973. OUTPUT_ARCH(powerpc)\n\
  974. ENTRY(__start)\n\
  975. SECTIONS\n\
  976. {\n\
  977.   .pad 0 : { *(.pad) }\n\
  978.   .text 0 : {\n\
  979.     *(.text)\n\
  980.     *(.pr)\n\
  981.     *(.ro)\n\
  982.     *(.db)\n\
  983.     *(.gl)\n\
  984.     *(.xo)\n\
  985.     *(.ti)\n\
  986.     *(.tb)\n\
  987.   }\n\
  988.   .data 0 : {\n\
  989.     *(.data)\n\
  990.     *(.rw)\n\
  991.     *(.sv)\n\
  992.     *(.ua)\n\
  993.     . = ALIGN(4);\n\
  994.     CONSTRUCTORS\n\
  995.     *(.ds)\n\
  996.     *(.tc0)\n\
  997.     *(.tc)\n\
  998.     *(.td)\n\
  999.   }\n\
  1000.   .bss : {\n\
  1001.     *(.bss)\n\
  1002.     *(.bs)\n\
  1003.     *(.uc)\n\
  1004.     *(COMMON)\n\
  1005.   }\n\
  1006.   .loader 0 : {\n\
  1007.     *(.loader)\n\
  1008.   }\n\
  1009.   .debug 0 : {\n\
  1010.     *(.debug)\n\
  1011.   }\n\
  1012. }\n\n"
  1013.   ; else if (link_info.relocateable == true) return
  1014. "OUTPUT_FORMAT(\"xcoff-powermac\")\n\
  1015. OUTPUT_ARCH(powerpc)\n\
  1016. ENTRY(__start)\n\
  1017. SECTIONS\n\
  1018. {\n\
  1019.   .pad 0 : { *(.pad) }\n\
  1020.   .text 0 : {\n\
  1021.     *(.text)\n\
  1022.     *(.pr)\n\
  1023.     *(.ro)\n\
  1024.     *(.db)\n\
  1025.     *(.gl)\n\
  1026.     *(.xo)\n\
  1027.     *(.ti)\n\
  1028.     *(.tb)\n\
  1029.   }\n\
  1030.   .data 0 : {\n\
  1031.     *(.data)\n\
  1032.     *(.rw)\n\
  1033.     *(.sv)\n\
  1034.     *(.ua)\n\
  1035.     . = ALIGN(4);\n\
  1036.     *(.ds)\n\
  1037.     *(.tc0)\n\
  1038.     *(.tc)\n\
  1039.     *(.td)\n\
  1040.   }\n\
  1041.   .bss : {\n\
  1042.     *(.bss)\n\
  1043.     *(.bs)\n\
  1044.     *(.uc)\n\
  1045.     *(COMMON)\n\
  1046.   }\n\
  1047.   .loader 0 : {\n\
  1048.     *(.loader)\n\
  1049.   }\n\
  1050.   .debug 0 : {\n\
  1051.     *(.debug)\n\
  1052.   }\n\
  1053. }\n\n"
  1054.   ; else if (!config.text_read_only) return
  1055. "OUTPUT_FORMAT(\"xcoff-powermac\")\n\
  1056. OUTPUT_ARCH(powerpc)\n\
  1057.  SEARCH_DIR(/usr/local/powerpc-apple-macos/lib);\n\
  1058. ENTRY(__start)\n\
  1059. SECTIONS\n\
  1060. {\n\
  1061.   .pad 0 : { *(.pad) }\n\
  1062.   .text   : {\n\
  1063.     PROVIDE (_text = .);\n\
  1064.     *(.text)\n\
  1065.     *(.pr)\n\
  1066.     *(.ro)\n\
  1067.     *(.db)\n\
  1068.     *(.gl)\n\
  1069.     *(.xo)\n\
  1070.     *(.ti)\n\
  1071.     *(.tb)\n\
  1072.     PROVIDE (_etext = .);\n\
  1073.   }\n\
  1074.   .data 0 : {\n\
  1075.     PROVIDE (_data = .);\n\
  1076.     *(.data)\n\
  1077.     *(.rw)\n\
  1078.     *(.sv)\n\
  1079.     *(.ua)\n\
  1080.     . = ALIGN(4);\n\
  1081.     CONSTRUCTORS\n\
  1082.     *(.ds)\n\
  1083.     *(.tc0)\n\
  1084.     *(.tc)\n\
  1085.     *(.td)\n\
  1086.     PROVIDE (_edata = .);\n\
  1087.   }\n\
  1088.   .bss : {\n\
  1089.     *(.bss)\n\
  1090.     *(.bs)\n\
  1091.     *(.uc)\n\
  1092.     *(COMMON)\n\
  1093.     PROVIDE (_end = .);\n\
  1094.     PROVIDE (end = .);\n\
  1095.   }\n\
  1096.   .loader 0 : {\n\
  1097.     *(.loader)\n\
  1098.   }\n\
  1099.   .debug 0 : {\n\
  1100.     *(.debug)\n\
  1101.   }\n\
  1102. }\n\n"
  1103.   ; else if (!config.magic_demand_paged) return
  1104. "OUTPUT_FORMAT(\"xcoff-powermac\")\n\
  1105. OUTPUT_ARCH(powerpc)\n\
  1106.  SEARCH_DIR(/usr/local/powerpc-apple-macos/lib);\n\
  1107. ENTRY(__start)\n\
  1108. SECTIONS\n\
  1109. {\n\
  1110.   .pad 0 : { *(.pad) }\n\
  1111.   .text   : {\n\
  1112.     PROVIDE (_text = .);\n\
  1113.     *(.text)\n\
  1114.     *(.pr)\n\
  1115.     *(.ro)\n\
  1116.     *(.db)\n\
  1117.     *(.gl)\n\
  1118.     *(.xo)\n\
  1119.     *(.ti)\n\
  1120.     *(.tb)\n\
  1121.     PROVIDE (_etext = .);\n\
  1122.   }\n\
  1123.   .data 0 : {\n\
  1124.     PROVIDE (_data = .);\n\
  1125.     *(.data)\n\
  1126.     *(.rw)\n\
  1127.     *(.sv)\n\
  1128.     *(.ua)\n\
  1129.     . = ALIGN(4);\n\
  1130.     CONSTRUCTORS\n\
  1131.     *(.ds)\n\
  1132.     *(.tc0)\n\
  1133.     *(.tc)\n\
  1134.     *(.td)\n\
  1135.     PROVIDE (_edata = .);\n\
  1136.   }\n\
  1137.   .bss : {\n\
  1138.     *(.bss)\n\
  1139.     *(.bs)\n\
  1140.     *(.uc)\n\
  1141.     *(COMMON)\n\
  1142.     PROVIDE (_end = .);\n\
  1143.     PROVIDE (end = .);\n\
  1144.   }\n\
  1145.   .loader 0 : {\n\
  1146.     *(.loader)\n\
  1147.   }\n\
  1148.   .debug 0 : {\n\
  1149.     *(.debug)\n\
  1150.   }\n\
  1151. }\n\n"
  1152.   ; else return
  1153. "OUTPUT_FORMAT(\"xcoff-powermac\")\n\
  1154. OUTPUT_ARCH(powerpc)\n\
  1155.  SEARCH_DIR(/usr/local/powerpc-apple-macos/lib);\n\
  1156. ENTRY(__start)\n\
  1157. SECTIONS\n\
  1158. {\n\
  1159.   .pad 0 : { *(.pad) }\n\
  1160.   .text   : {\n\
  1161.     PROVIDE (_text = .);\n\
  1162.     *(.text)\n\
  1163.     *(.pr)\n\
  1164.     *(.ro)\n\
  1165.     *(.db)\n\
  1166.     *(.gl)\n\
  1167.     *(.xo)\n\
  1168.     *(.ti)\n\
  1169.     *(.tb)\n\
  1170.     PROVIDE (_etext = .);\n\
  1171.   }\n\
  1172.   .data 0 : {\n\
  1173.     PROVIDE (_data = .);\n\
  1174.     *(.data)\n\
  1175.     *(.rw)\n\
  1176.     *(.sv)\n\
  1177.     *(.ua)\n\
  1178.     . = ALIGN(4);\n\
  1179.     CONSTRUCTORS\n\
  1180.     *(.ds)\n\
  1181.     *(.tc0)\n\
  1182.     *(.tc)\n\
  1183.     *(.td)\n\
  1184.     PROVIDE (_edata = .);\n\
  1185.   }\n\
  1186.   .bss : {\n\
  1187.     *(.bss)\n\
  1188.     *(.bs)\n\
  1189.     *(.uc)\n\
  1190.     *(COMMON)\n\
  1191.     PROVIDE (_end = .);\n\
  1192.     PROVIDE (end = .);\n\
  1193.   }\n\
  1194.   .loader 0 : {\n\
  1195.     *(.loader)\n\
  1196.   }\n\
  1197.   .debug 0 : {\n\
  1198.     *(.debug)\n\
  1199.   }\n\
  1200. }\n\n"
  1201. ; }
  1202.  
  1203. struct ld_emulation_xfer_struct ld_ppcmacos_emulation = 
  1204. {
  1205.   gldppcmacos_before_parse,
  1206.   syslib_default,
  1207.   hll_default,
  1208.   after_parse_default,
  1209.   gldppcmacos_after_open,
  1210.   after_allocation_default,
  1211.   set_output_arch_default,
  1212.   ldemul_default_target,
  1213.   gldppcmacos_before_allocation,
  1214.   gldppcmacos_get_script,
  1215.   "ppcmacos",
  1216.   "xcoff-powermac",
  1217.   0,    /* finish */
  1218.   0,    /* create_output_section_statements */
  1219.   0,    /* open_dynamic_archive */
  1220.   0,    /* place_orphan */
  1221.   0,    /* set_symbols */
  1222.   gldppcmacos_parse_args,
  1223.   gldppcmacos_unrecognized_file
  1224. };
  1225.